;e (setq $PRINT-PROJECT-PERSON-SUMMARYS nil) ;e (setq $print-project-monthly nil) ;e (setq $print-project-gs nil) read (salary in dsk (pro he)) exe (xfr gs dsk (pro he)) read (xfr in dsk (pro he)) project ((10 80)(12 80)) (xfr out dsk (pro he))